0 CLS6:CLEAR800:?@266,"DIAMOND HUNT";:X=8:Y=4:A=32:B=14:T=0:H=9:V=5:E=1:F=1:K=17023:L=65:M=83:N=87:O=90:P=42:A$="":B$="":GOTO8
1 SET(A,B,3):T=PEEK(2)ANDPEEK(K):A=A+(T=L)-(T=M):B=B+(T=N)-(T=O):?@.,A$B$;:POKEQ,P:IFY<>BANDETHENY=Y+(B<Y)-(B>Y):H=9:GOTO3
2 E=.:H=H+1:SET(H,Y,8):SET(63-H,Y,8):IFH>31THENH=9:E=1
3 IFX<>AANDFTHENX=X+(A<X)-(A>X):V=5:GOTO5
4 F=.:V=V+1:SET(X,V,8):SET(X,27-V,8):IFV>13THENV=5:F=1
5 SET(X,4,4):SET(X,23,4):SET(8,Y,4):SET(55,Y,4):IFPOINT(A,B)=.THEN1
6 T=POINT(A,B):IFT<0THENSOUND102,1:RESET(A,B):Q=4+RND(22)+(3+RND(7))*32+16384:S=S+1:?@480,"SCORE"S;:?@496,"HIGH"HS;:GOTO1
7 ?@429,"AGAIN?";:I$=INKEY$:ON-(I$<>"Y"ANDI$<>"N")GOTO7:HS=((S>HS)*-S)+((S<=HS)*-HS):S=0:A=32:B=14:CLS6:ON-(I$="Y")GOTO1:END
8 FORQ=1TO5000:NEXT:Q=4+RND(22)+(3+RND(7))*32+16384:FORJ=2TO11:FORI=4TO27:?@32*J+I,"";:NEXTI,J:?@480,"SCORE"S;:?@496,"HIGH"HS;
9 FORJ=0TO5:FORI=0TO31:A$=A$+CHR$(PEEK(16384+J*32+I)):B$=B$+CHR$(PEEK(16576+J*32+I)):NEXTI,J:GOTO1
10 REM LINE 1 CHECK CURRENT KEY AND KEY DOWN MEMORY LOCATIONS PEEK(2)ANDPEEK(K) ADD X AND Y DIR BASED ON PRESS
11 REM        ERASE SCREEN, TRACK VERTICAL COORDINATES
12 REM LINE 2 SET VERTICAL SHOT POSITION
13 REM LINE 3 CALC NEW POSITION VERTICAL GUN POSITION
14 REM LINE 4 SET HORIZONTAL SHOT MOVEMENT
15 REM LINE 5 SET HOSRIZONTAL AND VERTICAL GUN POSITIONS AND CHECK FOR COLLISIONS
16 REM LINE 6 CHECK FOR DIAMOND COLLISION AND INCREMENT SCORE
17 REM LINES 0,7-8 END GAME ROUTINE AND INITIALIZATION AND SCREEN SETUP
18 REM USE ASWZ TO MOVE
19 REM YOU ARE BLUE DOT
20 REM COLLECT DIAMONDS
21 REM AVOID CONTACT 
22 REM WITH ANYTHING ELSE
23 REM FOR BASIC 10LINERS 2018
